90 POKE53280,.:POKE53281,.:DIM G$(36)
100 PRINT"[147][159]    [204]ABEL [208]RINTER - [204]OUIS [198]. [211]ANDER     "
105 IFAG=1THENPRINT"            [208]RESS [209] TO [209][213][201][212].":GOTO110
107 PRINT
110 PRINTCHR$(14);"[154][212]HIS PRINTS ANY NUMBER OF THESE LABELS:"
120 FORJ=1TO35:PRINT"[185]";:NEXT:PRINT
130 FORA=1TO6:PRINT"[159]"A$(A):NEXT
140 FORJ=1TO35:PRINT"[184]";:NEXT:PRINT
145 IFAG=0THENAG=1:GOTO157
150 PRINT"[201]S THAT THE RIGHT LABEL ([217] OR [206])"
153 POKE198,.:WAIT 198,1:GETA$:IFA$="Y"ORA$="[217]"THEN180
155 IFA$="Q"ORA$="[209]"THEN300
156 IFA$<>"N"ANDA$<>"[206]"THEN153
157 PRINT"                                    "
158 PRINT"        [212]YPE YOUR LABEL ABOVE.         "
159 PRINT"":FORZ=2TO5:PRINT"                                       ":NEXT
160 PRINT"":FORZ=2TO5:GOSUB1000:A$(Z)=A$:NEXT:GOTO100
180 PRINT""
181 PRINT""
185 PRINT"[145][158][193]LIGN LABELS, TURN PRINTER ON, THEN"
190 PRINT"PRESS [[210][197][212][213][210][206]] TO TEST ALIGNMENT."
200 GETA$:IFA$=""THEN200
201 IFA$="Q"ORA$="[209]"THEN300
202 IFA$<>CHR$(13)THEN200
205 OPEN15,4,15:CLOSE15:IFST=.THEN210
206 PRINT"        [208]RINTER [206]OT [207]NLINE."
207 FORA=1TO2000:NEXT
208 PRINT"[145][145]";:GOTO100
210 OPEN4,4,7:FORJ=1TO6:PRINT#4,J:NEXT
220 PRINT"[201]S PRINT ALIGNMENT [207][203]?  ([217]/[206])"
225 POKE198,.:WAIT 198,1:GETA$
230 IFA$="Y"THEN240
233 IFA$="Q"ORA$="[209]"THEN300
234 IFA$<>"N"THEN225
235 PRINT""
236 FORA=1TO10:PRINT"                                       ":NEXT:CLOSE4
237 PRINT"":GOTO180
240 PRINT"[200]OW MANY LABELS TO PRINT?":PRINT"-->";:GOSUB1000:N=VAL(A$)
245 IFA$="Q"ORA$="[209]"THEN300
250 FORJ=1TON:FORK=1TO6:PRINT#4,A$(K)
251 GETA$:IFA$="Q"ORA$="[209]"THENPRINT#4:CLOSE4:GOTO300
259 NEXT:NEXT:PRINT#4:CLOSE4
260 PRINT"[215]OULD YOU LIKE TO PRINT MORE LABELS?";
270 POKE198,.:WAIT 198,1:GETA$
280 IFA$="Y"ORA$="[217]"THEN100
285 IFA$="Q"ORA$="[209]"THEN300
290 IFA$<>"N"ANDA$<>"[206]"THEN270
300 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
310 PRINT"[147]";:IFER<>63THENEND
320 LOAD"HELLO CONNECT",8
1000 PRINT"[154][164][159]";:FORA=1TO35:G$(A)=""
1010 GETA$:IFA$=""THEN1010
1020 IFA$=CHR$(13)THEN1060
1030 IF(A$=CHR$(20))AND(A>1)THENA=A-1:PRINT"[157][157]  [157][157][154][164][159]";:GOTO1010
1034 IFASC(A$)>192ANDASC(A$)<218THEN1040
1035 IFASC(A$)<32ORASC(A$)>95THEN1010
1040 PRINT"[157] [157]";:POKE212,.:PRINTA$;:POKE212,0:PRINT"[154][164][159]";
1050 G$(A)=A$:NEXT
1060 PRINT"[157] ":A$="":FORB=1TOA:A$=A$+G$(B):NEXT:RETURN